@L|}6CD l0C)HCC WhL/h `CmCDiD`  R@W1  Y0@R !L` D  C D     )16CS S)  C)D1 p p 0 C9DI pCDL~CiCDiD` D  C D     )16CS S)  C)D1 p p }0 C9DI pCDL~CiCDiD` DD˙` d J)L !}D L(( LL()  L| L( S LH 0p n  } CY?  q  L L  ` )} `A! d߰")-݆ "  $G@LLL&0") $G% }H0 3S8`G ȱG ȱG   Gȭ Gȭ GG}GHiH8(()) G$H% `(0 })8` d)L ݆ & LGȘ ݆LL d  ! LL d)N>Q  HH) }  hyhyB q L> Lm JJ  Ln*` dB%' }8  H H` 1 { LL   !L     Hh SY?  q  1L }  !? S   q 1 L   Ll  Lg E`L   !L)  q 1L}) `L0AM݊L݉ ML  N݆LLLNLMLHG!@}1F GȱGLLEEȩÑEȑEEȑE Ed E7EȩE  q} L !,0,0SGɛ L 1 !L EHEh W G gLLSROTCES EERF } G) *Gȩ GȽG GȌd q q G`  8   0G  `D}CEDC0X:Ȣ Y ȱC* ? 0.. , 0%n ?A[ 0 : L`L  `, 0`Y}`piH n0)բY? 08`0 }  0$L GGȽG L `8L`L}8`  05G)݁,G)ȱGȱGHh0})Hh` B! 8`8iiiLE`}E8FEh( l0`ɃLL L8^~jj8jHi hEEEiEȱEiE` dTE} H8EEȱEEȩEh J E8   . m  i`LI!)E1FR}1LJ舩9GIH`LJJ`HGHh l`} S gL   8 rii `дCDCG W  }C  Lq` X٨`DOS SYS IIIIIIIIIIIIIIIC`0 ߩ0}}} HE |||DDOS DOSDOS SYS }}}}CDOS SYS} 0`BDELV !B }`LVUQ   ]   TU J ]L!T  #      TU  } L ? .  t`GBJ V~DEHI B V0dV!}QDEHI VF9 ,0 ,0 s0hhL  L` H hDHEh"}DEL8HI   0 HI,0 0  9 .G VLO#},0 L4*IJ`llD1:AUTORUN.SYSNEED MEM.SAV TO LOAD THIS FILE.D1:MEM.SAV J y08 B|DEHI$} V0 0`B;DELV䌚 !B y`@ʆ v s? F0Ξ05: [ BDEHI%} VY8 B V  @  /DE `E:D1:DUP.SYSERROR-SAVING USER MEMORY ON DISKTYPE Y TO &}STILL RUN DOS B;DE J V (` 9 V⪍ ઍ  -'}LLu DEHILV 9 .l 9 .l  `` s$B VBH(}I|DE V BLV nB,DE J V* \*` B V BLVDEHI BLVL)}1u H232435; 1 ;  hh@2 e1i1LHҍ 00) 08 109hh@ Ҡ2e*}1i1232435ޥ<<8} 3E:}DISK OPERATING SYSTEM II VERSION 2.0SCOPYRIGHT 1980 ATARIA. DISK DIRECTORY I. FORMAT DISKB. RUN CARTRIDGE J. D,}UPLICATE DISKC. COPY FILE K. BINARY SAVED. DELETE FILE(S) L. BINARY LOADE. RENAME FILE M. RUN AT ADDRESSF. LOCK F-}ILE N. CREATE MEM.SAVG. UNLOCK FILE O. DUPLICATE FILEH. WRITE DOS FILES9!&x#!7&p))'&X*./)L''-؆莟.}R'S  vW DEHHI 1A#! @ ~0ɛ8A0.) ȅ 1 1i/}il ! 1L NO SUCH ITEMSELECT ITEM OR FOR MENU! 0 .{z:*{}.|~ 1 0 00}JB 18L^%|DLl%DIRECTORY--SEARCH SPEC,LIST FILE? # 0 0 n&|D! 1L NOT A DISK FILE1}N !B 1L " 1 !BDED:}:1BJ|DE 1DEBH2}I 1 h0ߢ 0.  0?詛 1 ~0YЛ 1 "L<" "L 3} BL1TYPE "Y" TO DELETE...DELETE FILE SPECCOPY--FROM, TO?OPTION NOT ALLOWED COPYING---DN:4}# 0|D .L$A#B#C#JB|DE 1BHIDD#E 1D#0: B5} 1L B#C#C#B# B 1N#$0SYS1}:e#D# d# D# .d#ȽD# d# 𩛙d#X# 1,A#6}PdD#ELO- A.BJdD#E 1 1HH 0hh|DL^%1}:e# Lt% e#dD#EL%7} 1 0 . .0% 1L WILD CARDS NOT ALLOWED IN DESTINATION 0 A.|K@C}//3Hu ξL/L DRIVE TO WRITE DOS FILES TO?WRITING NEW DOS FILESTYPE "Y" TO WRITE DOS TO DRIVE 2.?}D2:DOS.SYSERROR - NOT VERSION 2 FORMAT. , &* բ( 1L `[) 0NΞ 0 L1M) 1@} L BAD LOAD FILELOAD FROM WHAT FILE?) 0 0#B 1L WHAT FILE TO LOCK?) 0 0$B 1L WHAT FILE TO UNLOCK?DUA}P DISK-SOURCE,DEST DRIVES?TYPE "Y" IF OK TO USE PROGRAM AREACAUTION: A "Y" INVALIDATES MEM.SAV. h  ,B}  `)  <0 2 2 0  ,   ,,ޢ* 1L ,K* 1 ~0 0C}FINSERT BOTH DISKS, TYPE RETURNERROR - DRIVES INCOMPATIBLE., 1 ~038  , 1L D}, &*  Lz+, 0 , 1 ~0 + Y,0!,0 ,L+ ,mm  v,"ǭE}0Ξ, 05,Lt+L +,Hh` NOT ENOUGH ROOMINSERT SOURCE DISK,TYPE RETURNF}INSERT DESTINATION DISK,TYPE RETURN`    `L,8,0( rG}L1(`ߢ) 1* 1 ~0Y`hhL S SL1) 8`NAME OF FILE TO MOVE?- 0 0|DLtH}% A., 1 <0 0 .@L# .BJ 1  DEHIB V L1 ,5 1 <0,L. I} JB|,A#Pd#DE 1 HI BDEHHII 1 B 1 , 1 <0,0Lf- B VJ},A#P, 1 <0 0L#L ߢ) 1* 1 ~0Yj383}mm ݭK}}`8}``|* ? ɛ,`|:(|/ 1L `DESTINATION CANT L}BE DOS.SYS0 0H{ $22Δ $28/L /) $2 Π $2 0 ξM}hAΞB,0 J 1 BޝDEHI,HDE 1HIHIDELSAVE-N}GIVE FILE,START,END(,INIT,RUN)O X0 1`BDEPHI V` X0H 1 L O}0 0 1L0`PLEASE TYPE 1 LETTER,0`hhL <0 1L0LA1 ,;ɛ7,"ɛ:ݦ1ݥP}A"D|ݤD|ȩ:|ȩ|ɛ,,(/+.ީ1 1,ɛ`轤{Q}NAME TOO LONG B VL ` L1I H1EӝDL1|mDiE` V0`8d/8 i:"2!22 1R} L ERROR- 128ɛ+,' 20*.. өw2 1``2TOO MANY DIGITSINVALIDS} HEXADECIMAL PARAMETER800 0 8 00`,0'D800H,ɛh`2L1NEED D1 THRU D4uT} HEXADECIMAL PARAMETER800 0 8 00`,0'D800H,ɛh`2L1NEED D1 THRU D4uLY YU ` M NL  U `ZT hhhhh  m iV}mͭiΠ˩m i    m i ˍ ̍˙FL+˭̭W}ͭα˪͑ˊm˭i̠F8˭̠Fː L X}˭ ̭ͭΠ˪͑ˊ8 ͭ 8 ͥ8 ˭ 8 ˥8ͥ0DLY}miʭ , ,8  L0=  8,,m i LLZ}"ʽ ʽ , ʽ, Lm˭i̥˅m˥̅i̠ːb LA ˙F˅ͥ̅8ͅ[}ͥ΅ΠF͐ L4 ͑LF L`EiͩkΩ }8&7F 'SYSMENU' WBB 10-23-81@ A ]}dMAIN LINEi;@,n A x A A@7 +@-@7 @ ^}Ǡ%DISPLAY OPTIONS1 +@@1AR@'@@d'B7t _}@d (@ (@##(@-ASSIGN DATA FILE (@-CREATE A FILE `} (@-DELETE A FILE(@ -EDIT A FILE(@ -MOVE A FILE""(@-LIST FILE SIZES a}""(@-FILE MAINT MENU""(@-MAIL LABEL MENU.0-@@0(@ 8$L b}ACCEPT OPTIONV##@@K:`)@j$"@e!6. D1:FILEASGN$$k#"@g 6. D1: c}FILEDEF#$l$"@h!6. D1:FILEKILL$$m$"@p!6. D1:FILEMENU$$n$"@v!6. D1:FILELIST$$o$ d}"@w!6. D1:MAILMENU$$p#"@i 6. D1:SYSEDIT#$q#"@ 6. D1:SYSMOVE#$tA@R72 e}@ @@K-@AO aA2~ A < f}<< LOAD USR RTNS >>>--@B")%A0- --@(")%A- $4ERA g}SE RTN5nn104,169,0,133,212,133,213,162,5,169,28,205,252,2,240,15,189,43,4,205,252,2,208,241,202,208,238,169,1,1336//212 h},169,255,141,252,2,96,0,42,62,63,40,42TRUNCATE RTN@@104,104,133,204,104,133,203,104,104,168,136,177,203,201,3288 i}208,3,136,208,247,200,152,133,212,169,0,133,213,96@<<< TRAP HANDLER >>>ANN(UNEXPECTED ERROR F:A, AT LINE !}"#sW h FILE1FILE2FILE3IOFLDXOF1 k} 'SYSEDIT' WBB 12-15-81d<<< MAIN LINE >>>nC +AA1@CARo"l}F:A!,"" ApEF:A!,"@E((ԠŠŠΠŠq'@@d'Bm}7t@dx8& THIS PROGRAM ALLOWS EDITS TO A8( CONTROL FILE.y z PUSH TO END...{!! PUSH TOn} CONTINUE... F:B2y,"@A  F:B2y,@A0<<< OPEN CONTROL FILE >>>&&;@,o};@ ,;A,#6. D1:CONTROL.#6.D1:TEMPJF:A!,"@167@<@,.2J67@<@,p}.2E( (CHOOSE A DATA FILE BYE(ENTERING A NUMBER FROM 1-255... A  A!! @)!AUq}A 67@,.=:,6@66.!FILE DEFINITION NOT ON THIS DISK!4 A*@@r}4 A @@,)@*@-)@*@.)@*@s}6@7''(>:A%,DESCRIPTION OF FILE:8 ( 9-@:(@@)@t}*@A)@*@B 6-J-@K)@@U%%(>:A%,FIELD u} LABEL:V ( W-@X""67B:,%@,. Y6.7@<@,_&&(>:A%,v}FIELD  LENGTH:` ( a-@h*@(@i r)@*@sw})@*@t)@*@u)@*@|@(@@x}@ (>:A%, ( UPDATING ((@3@,67@,.,,67@ ,.7@y},((@2@<<< END >>>@@((END OF PROGRAM...^F:A!z},"@(^(>PUSH WHEN THE PROGRAM DISKETTE IS READY IN DRIVE 1...5F:A!,"@5F:B2y,@{}A "% D:FILEASGNGET #DRIVES%%(PUSH IF THE DATA DISK IS D1%%(PUSH IF THE DATA DISK IS D2},-. ? FILE1FILE2IOFILE3XRECFLDHLFLEN}} @ '''SYSMOVE' WBB 1-20-82,MOD 7/26/82d<<< MAIN LINE >>>nC +A~}A1@CARo"F:A!,"" ApEF:A!,"@E((ԠŠ}ŠΠŠq'@@d'B7t@dx,,($THIS PROGRAM TRANSFERS THE DATA FROMy,,($AN 'ATA}RI MAILING LIST' DATA FILE TOz//('A 'DISK MAILING LIST' DATA FILE FORMAT.{(| PUSH TO END...}!! PUSH } TO CONTINUE... F:B2y,"@A  F:B2y,@A0<<;@,;@,;@,;}A ,;A ,<<< DEFINE INPUT FILE >>>11(>:A%,WHAT IS THE ATARI MAILING LIST( FILENAME...}> A0*@@4 A> AINPUT FILE NOT FOUND#6.FILE NOT FOUND!# A, }<<< DEFINE OUTPUT FILE >>>6E( (CHOOSE A DATA FILE BYE(ENTERING A NUMBER FROM 1-255...7 A A8}!! )!AUA@R6.D1:DATA.$67@ ,.=:,9F:A!,"@R67@<@,.2A? A0}*@@5@? AB3)6.FILE DEFINITION ALREADY EXISTS!3 AJ@K @}@^O6. D1:CONTROL.=67@<@,.7@<@,O67@,.=:,_ @@} <<< WRITE CONTROL FILE >>>@$6-P:'AV,$6-&$AV'*@*@}'RECORDS"*@"LAST SORT(@DESC"*@"FULL FLAG*@FI}ELDS0(0( THERE ARE  FIELDS TO BE DEFINED. 9,-@ ( (FIELD  LABEL...=&67B:},%@,. =6.7@<@,(FIELD  LENGTH.. A# A*@(@} 68,- O*@)*@<*@O*@(@}@++<<< TRANSFER RECORDS TO DATA FILE >>>-@''(TRANSFERRING RECORD  OF -@} =)@@)B:,!8,=6.7@<8,, ((@  @( $@}@$@<<< END >>>@@((END OF PROGRAM...^F:A!,"@(^(>PUSH} WHEN THE PROGRAM DISKETTE IS READY IN DRIVE 1...5F:A!,"@5F:B2y,@A "% D:FILE},- 2DISLASTFILISFILEFIOFHLRECFILE1}@ 'FILEASGN' WBB 11-9-81d<<< MAIN LINE >>>nC +AA}1AR@C@x'@@d'B7t@dMM(ETHIS PROGRAM ASSIGNS THE DRIVE THE DATA }DISKETTE WILL BE ACCESSED ON,C@(8AND ALLOWS YOU TO CHOOSE THE DATA FILE TO BE PROCESSED.C(%%(PUSH IF THE DATA DI}SK IS D1%%(PUSH IF THE DATA DISK IS D233F:Ad, @0)F:Ad,!@1AP*F:Ad,"@1*A}!@*F:Ad,"@0*A!@AdAUEF:A!,"@E((ԠŠ}ŠΠŠ99;@ ,;@ ,;A ,9@d<@,,<<< CHOOSE FILE >>>6AR7}E( (CHOOSE A DATA FILE BYE(ENTERING A NUMBER FROM 1-255...8 A A9!! @)!AUA}@C6. D1:CONTROL.*F:A!,"@C67@<@,.2A67@,.=:,JI@ A15@}@? AI A2KA(( NOT ON THIS DISK!3-@A7 A A L-)@)@}-6-%$AVM)@@N!( (!( RECORDS ON FILET@(OK TO PROCEED (Y/N)...#+0}Y6@@ AU?AR@?(%ASSIGNING DATA FILE AND DISK DRIVE...VA"@<<< EN}D >>>^F:A!,"@(^(>PUSH WHEN THE PROGRAM DISKETTE IS READY IN DRIVE 1...5F:A!,"@5}F:B2y,@A % D1:SYSMENU@<<< TRAP HANDLER >>>ANN(UNEXPECTED ERROR F:A, AT LINE F:A},%F:A,$AVB9'(YOU SHOULD REBOOT THE SYSTEM...9A@4C D:FILEASGNj$%}m ~ FILE1FLDFLDPADIOADFILE2DD } //FILEDEF,FILEKILL,FILELIST,SYSMOVE,SYSEDIT "FILEDEF" WBB 10-30-81d<<< MAIN LINE >>>n1 +}AA1AR@o"F:A!,"" ApEF:A!,"@E((ԠŠŠ}ΠŠq'@@d'B7t@dx-- %THIS PROGRAM DEFINES THE FIELD LABELSy## AND LENGTHS FOR A NE}W FILE.z { PUSH FOR MENU...|!! PUSH TO CONTINUE... F:B2y,"@A  F:B2y,}@A0<<< OPEN CONTROL FILE >>>B1;@,;@,;A ,;@,B6. $6. D1}:CONTROL.$6.D1:DATA.JF:A!,"@167@<@,.2J67@<@,.2ARE(} (CHOOSE A DATA FILE BYE(ENTERING A NUMBER FROM 1-255... A  A!! @)!AUA }67@,.=:,67@ ,.=:,@@))6.FILE DEFINITION ALREADY EXISTS!> A5*@}@4 A> A##6.DATA FILE ALREADY EXISTS!> AP*@@4 A}> ANEW FILE@@H @@=@@H@}5*@)*@5# RECORDS"*@"KEY FIELD0(,( DESCRIPTION OF FILE (30 CH}AR)...0(@"*@"FULL FLAGB A`(4(HOW MANY FIELDS IN A RECORD...8B A}E @)!A';(>:AS,1-127 FIELDS ONLY!E A`*@-@((FIELD }( LABEL....*B:,&@*67B:,%@,.( LENGTH... Au AI @)!A }?(>:AS,1-120 CHARACTERS ONLY!I Au*@(@ AR@,<<>>-&*@@&LABELS ACROSS.$*@@$LINES/LABEL/&*@@&COLUMNS/LABEL}0$*@@$LEFT MARGIN6 6.1 BLANK LINE7(@<<< END >>>@@(}(END OF PROGRAM...^F:A!,"@(^(>PUSH WHEN THE PROGRAM DISKETTE IS READY IN DRIVE 1...5F:}A!,"@5F:B2y,@A 1% D:FILEASGNGET #DRIVES%%(PUSH IF THE DATA DISK IS D1%%(P}USH IF THE DATA DISK IS D233F:Ad, @0)F:Ad,!@1A0*F:Ad,"@1*A!@*}&'  FILE1FILE2FILE3IOHLRECKEPAS } 'FILEKILL' 11-10-81d<<< MAIN LINE >>>n1 +AA1AR@o"F:A! },"" ApEF:A!,"@E((ԠŠŠΠŠq'@@d'B7t@d }x%% THIS PROGRAM DELETES THE FILEy** "DEFINITION AND ALL DATA IN A FILE.z { PUSH FOR MENU...|!! } PUSH TO CONTINUE... F:B2y,"@A  F:B2y,@A0<<< OPEN CONTROL FILE >>> }&&;@,;@,;A ,$6. D1:CONTROL.$6.D1:DATA.JF:A!,"@167@<@,.2J6 }7@<@,.2ARE( (CHOOSE A DATA FILE BYE(ENTERING A NUMBER FROM 1-255... A  } A!! @)!AUA '67@,.=:,'67@ ,.=:,6@66.!FILE DEFINITION NOT } ON THIS DISK!4 A*@@4 A-)@)@-6-$AV%)@ }&@((&( RECORDS@(OK TO PROCEED (Y/N)...#+0Y6@@ A AR@ }@@I(-("ENTER THE PASSWORD ERASE TO DELETEI(ALL RECORDS IN THE FILE&&(ENTER THE PASSWORD }OR [ESC]...&6-?:A0,&"A ,<<< DELETE >>>6 (>:A%, ( DELETING 7((@3@ }@( DELETING A((@3@<<< END >>>((END OF PROGRAM...^ }F:A!,"@(^(>PUSH WHEN THE PROGRAM DISKETTE IS READY IN DRIVE 1...5F:A!,"@5F:B2y },@A 1% D:FILEASGN% D:SYSMENUGET #DRIVES%%(PUSH IF THE DATA DISK IS D1%%(PUSH IF T }HE DATA DISK IS D233F:Ad, @0)F:Ad,!@1A0*F:Ad,"@1*A!@*F:Ad },"@0*A!@$AdAU.$@<<< TRAP HANDLER >>>ANN(UNEXPECTED ERROR F:A, AT L"}DECFFILHLRECIOFILEROSIZFILESFREFULPCNSIZEFREEOUT$} @ @ @$}//FILEDEF,FILEKILL,FILELIST,SYSMOVE,SYSEDIT 'FILELIST' 11-10-81 WBBd<<< MAIN LINE >>>n1 +A$}A1AR@o"F:A!,"" ApEF:A!,"@E((ԠŠŠΠ$}Šq'@@d'B7t@dx..(&THIS PROGRAM LISTS THE FILES THAT HAVEy(BEEN DEFINED THUS FAR.$}z({(PUSH FOR MENU...|$!(PUSH TO CONTINUE...$( F:B2y,"@A  F:B2y,@$}A0A@;@,&&(PUSH FOR OUTPUT TO SCREEN...''(PUSH FOR OUTPUT TO PRINTER...$}33F:Ad,@*F:Ad,@bAR!F:Ad,"@!6.P:!F:Ad,"@b!6.S:A$}dAU<<< READ DIRECTORY >>>66(>:A%,#SEARCHING DIRECTORY ON DATA DISK...11;AU,9AU,;$}@ ,;@0,1-@AU"67,.N168,- 6.D1:*.*1F:A!,"@167@$}<@,.2 @@@++@:7@<@,,&@2APDD7@<@$},0DATA*7@<@ ,0CONTROLA076-A:7@<@,,76-A:7@<@,,67<,.Y68$},-8,% A0END OF DIR6-A:7@<@,,,@64S:A; (>:A%, ( PRI$}NTING...@6.CAN'T FIND PRINTER!A4 A*@@4 A<<< PRINT EM OUT >>>6. $}D1:CONTROL.1F:A!,"@167@<@,.2NC(@FILE IDSECTORS% FULLRECORDS DESCRIPTI$}ONN(@,-@AU,7<,4NAC67@,.=:, @@7)@$})@*)@7@!!6-P:8,'$B,'A%%(@8,$AV%6-P:'A$},*@@ (@6-P:'?,'A77(@" % FREE SPACE ON THE$} DATA DISKETTE A <<< SCREEN EM OUT >>>A@6. D1:CONTROL.1F:A!,"@167$}@<@,.2-*(FILESCTRS%FULLRECSDESC-(,-@AU,7<,4NAC67@,$}.=:, @@7)@)@*)@7@!!6-P:8,'$B,'A$}(8,$AV%6-P:'A,*@@ &('6-P:'?,'A(//($}" % FREE SPACE ON THE DATA DISKETTE0 ( (PRESS WHEN DONE5 F:B2y,@Ae<<< END >>>$}^F:A!,"@(^(>PUSH WHEN THE PROGRAM DISKETTE IS READY IN DRIVE 1... F:B2y,@A $} F:B2y,"@A % D:SYSMENUGET #DRIVES%%(PUSH IF THE DATA DISK IS D1%%(PUSH IF THE DA$}TA DISK IS D233F:Ad, @0)F:Ad,!@1A0*F:Ad,"@1*A!@*F:Ad,"@&}&F 'FILEMENU' WBB 10-23-81'F:A!,"'% D:FILEASGNd(}MAIN LINEn;@,x A A@B:,"7 +@-@7 @(}Ǡ%DISPLAY OPTIONS +@'@@d'B7t@d""(@ (}(@(@ -ADD DATA(@ -EDIT DATA(@ -DELETE DATA(@ -SO(}RT DATA(@ -PRINT DATA!!(@-RETURN TO MENU.0-@@0(@ 8$L(}ACCEPT OPTIONV##@@K:`)@j#"@e 6. D1:FILEADD#$k$"@i!6. (}D1:FILEEDIT$$l#"@h 6. D1:FILEDEL#$m$"@!6. D1:FILESORT$$n$"@!6. D1:FILEPRNT$$p#(}"@ 6. D1:SYSMENU#$tA@R72@ @@K-@AO aA(}2~ A @<<< TRAP HANDLER >>>ANN(UNEXPECTED ERROR F:A, AT LINE (}F:A,%F:A,$AVB9'(YOU SHOULD REBOOT THE SYSTEM...9A@4C D:FILEMENUFILEASGNd(o23 FILE1FILE2IOHLRECKEFULFLDFLDFLDREC,} @  'FILEADD' 10-27-81d<<< MAIN LINE >>>n1 +,}AA1AR@oEF:A!,"@E((ԠŠŠΠŠp'@@d,}'B7t@dx-*(CURRENT FILE ASSIGNED: F:A",-(y2/('THIS PROGRAM ADDS NEW RECORDS TO A FILE2(z(P,}USH FOR MENU...{!!(PUSH TO CONTINUE... F:B2y,"@A  F:B2y,@A0,}<<< OPEN CONTROL FILE >>>&&;@,;@,;A ,$6. D1:CONTROL.$6.D1:DATA.JF:A!,"@1,}67@<@,.2J67@<@,.26-F:A",'67@,.=:,'67@ ,.=:,006.&THE FILE A,}SSIGNED IS NOT ON THIS DISK!?@ A5@@? A-)@)@-6-,}$AV%)@@)@,<<< READ CONTROL FILE >>>6)@6-79<,}@,;$@,8-@9)@@: 6-%68<,-;&&67$@&@ <$@,},.< @@ ;,<<< OPEN FILES >>>006.&THE FILE ASSIGNED IS NOT ON THIS DISK!?@ ,}A5@@ ? A <<< CHOOSE ADD OR EXIT >>>(>:A%,A (Push to return t,}o>(the FILE MAINTENANCE MENUA(((( Push to add another record F:B2y,"@A  F:B2y,@,}A X<<< ADD >>>]ARb 6.c+((>:A%,ENTER DATA FOR FIELDS+(d-@e@,}%(7$@&@ <$@,)8B:,"@6. f3B:,!8<,36.7@<8<,,g68<@,},-B:,%@h68<@,-B:,%B:,i67B:,%@,.j  (AR@lM(>:A%,KEY: ,}.-@M(78<@,<8<@,,m](-@V(7$@&@ <$@,:78<@,<8<,}@,,Z ](v,,($PUSH IF YOU MADE A MISTAKE...w''(PUSH TO ADD THE RECORD...x F:B2y,"@,}Ay F:B2y,@A2z F:B2y,@A4=-@9(@78<@,<8<@,},,= 6-%@ A<<< EOF >>>@@ (>:A%, ( UPDATING  @,}@$6-P:'AV,$6-&$AV*@*@@<<< END >>>@,}@((END OF PROGRAM...^F:A!,"@(^(>PUSH WHEN THE PROGRAM DISKETTE IS READY IN -}DRIVE 1...5F:A!,"@5F:B2y,@A "% D:FILEMENU@<<< TRAP HANDLER >>>ANN(UNEXPECTED-} ERROR F:A, AT LINE F:A,%F:A,$AVB9'(YOU SHOULD REBOOT THE SYSTEM...9A@4C(-}#<<< ERROR HANDLER >>>2#6(>:AS,((-@A, 6 A  D:FILEADD,aQR&KEFLDKEYFLDSKIRECFLDRECIOFILE1FILE2FILE3HLKEYSAFULEDTEDTJ@1} @1}@ 'FILEEDIT' WBB 11-2-81d<<< MAIN LINE >>>n1 +AA1A1}R@oEF:A!,"@E((ԠŠŠΠŠx-*(CURRENT FILE ASSIGNED: F:A",-1}(y/,($THIS PROGRAM ALLOWS EDITS TO RECORDS/(z(PUSH FOR MENU...{!!(PUSH TO CONTINUE... F:B2y1},"@A F:B2y,@A0<<< OPEN CONTROL FILE >>>11;@,;@,;@,;A1 } ,26. D1:CONTROL.$6.D1:DATA.26.D1:TEMPcF:A!,"@167@<@,.2J67@<@1 },.2c67@<@,.26-F:A",'67@,.=:,'67@ ,.=:,006.&THE FILE ASSIGNED IS NOT ON 1 }THIS DISK!?@ A5@@? A-)@)@-6-$AV%31 }")6.NO RECORDS TO EDIT!3 A*)@@*)@0&6.NOT ENOUGH FREE SECTORS!1 }0 A,<<< READ CONTROL FILE >>>6)@6-7$$9<@,;$@,9,8-@91})@@: 6-%68<,-;&&67$@&@ <$@,.< @@;,;,1}9<@,<<< OPEN FILES >>>@@006.&THE FILE ASSIGNED IS NOT ON THIS DISK!4 A*1}@@4 A##6.UNABLE TO OPEN TEMP FILE!4 A*@@4 A1}<<< START KEY >>>26-"(;@,2 A;8<,,Q(>:A%,Q(THE FILE WAS1} LAST SORTED BY: 7$@&@ <$@,( K5(ENTER THE 1ST 7$@&@ <$@,K(YOU WANT TO E1}DIT  6-@X<<< READ THRU FILE >>>b-@6.c>-@@2"*1*"@1}>6-d;68<@,-B:,%@;68<@,-8<@,e868<@,-B:,%B:,868<@,-8<@1},f67B:,%@,.g lM(>:A%,KEY: .-@M(78<@,<8<@,,mA1}vs(-@V(7$@&@ <$@,:78<@,<8<@,,sF:@, @ A4w$($1}(PUSH TO CONTINUE...x F:B2y,@A2y-(>:A%,-F:B2y,@A3z ((((PU1}SH TO EDIT RECORD...++(#PUSH TO KEEP RECORD AS IS...''(PUSH TO RETURN TO MENU..."F:B2y,1}"@" A.F:B2y,"@$6-@. A F:B2y,@AP<<< EDIT RECORD >>>"1} 6.6."AR-@U/(>:A%,7$@&@ <$@,2(U( 78<@,<8<@1},,0-@(B:,"06. 3B:,!8<,36.7@<8<,,;68<@,-1}B:,%@;68<@,-8<@,868<@,-B:,%B:,868<@,-8<@,67B:,%@,. 1}AR@ A  <<< WRITE TO TEMP >>>*-@+H8<@,8<@,H(@78<1}@,<8<@,,,(@- 4 <<< EOF >>>$@@$@ (>:A%, ( 1}UPDATING ((@3@,67@,.,,67@ ,.7@,((@2@1 }<<< END >>>$@@$@((END OF PROGRAM...^F:A!,"@(^(>PU1!}SH WHEN THE PROGRAM DISKETTE IS READY IN DRIVE 1...5F:A!,"@5F:B2y,@A1% D:FI1"}LEMENU@<<< TRAP HANDLER >>>ANN(UNEXPECTED ERROR F:A, AT LINE F:A,%F:A,$AVB9'(YOU SHO1#}ULD REBOOT THE SYSTEM...9A@4C(#<<< ERROR HANDLER >>>2#6(>:AS,((-@A, 6 A1$} D:FILEEDITYFLDSKIRECFLDRECIOFILE1FILE2FILE3HLKEYSAFULEDTEDTJ@0jkSbsIORECFLDTTTESTPASDATEFILE1FILE2FILE3HLRECKEPADFLDFLDKEYSALLINEPASSENRECKEEFUL5&}@ 5'}@ 'FILEDEL' 11-3-815(}d<<< MAIN LINE >>>n1 +AA1AR@oEF:A!,"@E((ԠŠ5)}ŠΠŠx-*(CURRENT FILE ASSIGNED: F:A",-(y0-(%THIS PROGRAM DELETES SELECTED RECORDS0(z(PUSH 5*} FOR MENU...{!!(PUSH TO CONTINUE... F:B2y,"@A  F:B2y,@A0A5+}@<<< OPEN CONTROL FILE >>>11;@,;@,;@,;A ,26. D1:CONTROL.$6.D1:DATA.5,}26.D1:TEMPcF:A!,"@167@<@,.2J67@<@,.2c67@<@,.26-F:A5-}",'67@,.=:,'67@ ,.=:,006.&THE FILE ASSIGNED IS NOT ON THIS DISK!?@ A5@5.}@? A-)@)@-6-$AV%)@@)@05/}&6.NOT ENOUGH FREE SECTORS!0 A7"-6.NO RECORDS IN THE FILE!7 A8;A ,6. )650}7A ,. 867@,.,<<< READ CONTROL FILE >>>6)@6-7$$9<@,;$@,9,51}8-@9)@@: 6-%68<,-;&&67$@&@ <$@,.< @52}@ ;,<<< OPEN FILES >>>@@006.&THE FILE ASSIGNED IS NOT ON THIS DISK!4 A53}*@@4 A @@''<<< RECORD SELECTION CRITERIA >>>;A ,54},,(>:A%,RECORD SELECTION CRITERIA 3(/(#DELETE ALL OR SOME RECORDS (A/S)...3  4A A 055}SA! # (>:A%,FIELDLABEL#(4-@4(7$@&@ <$@, F:@, @ A56}50(0(%PUSH TO CONTINUE THE DISPLAY... F:B2y,@A3# (>:A%,FIELDLABEL#(  57} (C A@5("RECORD SELECTION BASED ON FIELD...9C A @)!A@(&($(COMPARISON ME58}THOD <,=,> ...('26-@:,&@Y2 @)!@AP((0 (COMPARISON VALUE... 1 AX59}<<< DELETE ALL >>>b-(-("ENTER THE PASSWORD ERASE TO DELETEc(ALL RECORDS IN THE FILEd&&(ENTER THE PASSWORD OR 5:}[ESC]...l&6-?:A0,&"A v(( UPDATING +@+@@(( UPD5;}ATING +@+@@4*@)*@4@ A <<<5<} READ FILE >>>(>:A%, SEARCHING...6--@6.-@@685=}<@,-B:,%@68<@,-B:,%B:,67B:,%@,. 6-@ A A5>}  6- <<< EOF >>>*$@@$@+ (>:A%, ( UPDATING ,((@3@5?}.,67@,.,,67@ ,.7@,/((@2@4(( UPDATING 5 5@}@@6$6-P:'AV,$6-&$AV7*@*@8@<<< END >>>5A}$@@$@((END OF PROGRAM...^F:A!,"@(^(>PUSH WHEN THE PROGRAM DIS5B}KETTE IS READY IN DRIVE 1...5F:A!,"@5F:B2y,@A 1% D:FILEMENU<<< TEST FOR CRIT5C}ERIA >>>$$6.78<@,<8<@,,A$A&A($ 26- AP$ 5D}46- AP$ 36- AP$(>:A%,p-@S(7$@&@ <5E}$@,:78<@,<8<@,,pF:@, @ AU$($(PUSH TO CONTINUE... F:B2y,5F}@AS(>:A%,  L(*(PUSH D TO DELETE THIS RECORD...L(PUSH K TO KEEP THIS RECORD...! F:A5G}d,"AUAW"$F:Ad,@X$6-@#4AdAU1(>:A%, SEARCHING...4$L<<< WRITE 5H}TO TEMP >>>V=-@9(@78<@,<8<@,,= `6-%@j$@<<< TRAP HANDLER >>>AN5I}N(UNEXPECTED ERROR F:A, AT LINE F:A,%F:A,$AVB9'(YOU SHOULD REBOOT THE SYSTEM...9A5J}@4C(#<<< ERROR HANDLER >>>2#7((>:AS,)-@A- 7 A  D:FILEDELEEFUL4pjk{4FFILE1FILE2FILE3ADIOFLDFLDFLDKEYSKEYRECSHSLSORTPADSLAUUURECSHLKEFULMAXKEY9L}@ @ 9M}9N} ! 'FILESORT' 10-27-81d<<< MAIN LINE >>>n1 +AA1AR@oEF:A9O}!,"@E((ԠŠŠΠŠx-*(CURRENT FILE ASSIGNED: F:A",-(y+(( THIS PROGRAM S9P}ORTS THE DATA FILE+(z(PUSH FOR MENU...{!!(PUSH TO CONTINUE... F:B2y,"@A F:9Q}B2y,@A08;A ,6. )67A ,. 867@,.<<< OPEN CONTROL FILE >>>11;@9R},;@,;@,;A ,26. D1:CONTROL.$6.D1:DATA.26.D1:TEMPcF:A!,"@167@<@9S},.2J67@<@,.2c67@<@,.26-F:A",'67@,.=:,'67@ ,.=:,006.9T}&THE FILE ASSIGNED IS NOT ON THIS DISK!?@ A5@@? A-)@)@9U}-6-$AV%3")6.NO RECORDS TO SORT!3 A,,6."THE SORT ROUTINE IS NOT IN MEMORY! F:9V}Au,&AA*)@@*)@0&6.NOT ENOUGH FREE SECTORS!0 A,<<< R9W}EAD CONTROL FILE >>>6)@6-7$$9<@,;$@,9,8-@9)@@9X}: 6-%68<,-;&&67$@&@ <$@,.< @@ ;,A6-I:,&@d9Y}B ;,C 6-P:'+%@,,&@D!A6-AEU@K6.5YOU DONT HAVE ENOUGH MEMORY TO SOR9Z}T THATMANY RECORDS!U A<<< DEFINE KEY FIELDS >>>'A@'ARo0(>:A%,DEFINE 9[}KEY FIELDS FOR SORTINGL(MAXIMUM KEY LENGTH = O(l(FLDLABEL FIELD SIZEo(^-@A(7$@&@ 9\}<$@,8<,^F:@, @ A$($(PUSH TO CONTINUE... F:B2y,@A9]}o0(>:A%,DEFINE KEY FIELDS FOR SORTINGL(MAXIMUM KEY LENGTH = O(l(FLDLABEL FIELD SIZEo( A A 9^}(0(HOW MANY ARE KEY FIELDS...4> AA( @)!A 68,-6--@9_}8,5 A1'(KEY  FIELD #...+5 A @)!A1 68,-6-%8<,9`} 6-%@&@APZ1(>:AS,CANNOT EXCEED  CHARACTERSZ($BECAUSE OF LIMITED AVAI9a}LABLE MEMORY!%-@A % A- 6. 67&@,. -67@,.AR@<<<9b} OPEN FILES >>>@@ 006.&THE FILE ASSIGNED IS NOT ON THIS DISK! * A*@@9c} ##6.UNABLE TO OPEN TEMP FILE! 4 A*@@4 A aK(>:A%,P:$@'@9d},'@ MINUTES ESTIMATED DURATIONN(a(SORT PASS 1...X<<< READ A RECORD >>>b"-@"( OF 9e}c3@#6-P:'AV,36-&$AVl 6.v-@@w68<@,-B:,%@x9f}68<@,-B:,%B:,y67B:,%@,.z <<< PUT KEYS IN SORT$ >>>-@8,**6.789g}8,<@,<88,<@,,67B:,%@,.4067B:,%@,.7@<88,<,,4 67B:,%@,9q}?B'DOS SYSB*+DUP SYSBUAUTORUN SYSB\SYSMENU BjSYSEDIT B|SYSMOVE BFILEASGN BFILEDEF BFILEKILL BFILELIST B FILEMENU BFILEADD B"FILEEDIT B&%FILEDEL B(KFILESORT B1|FILEPRNT B MAILMENU B.MAILLBL0 B(MAILLBL1 B DISKNAMEDATB SYSGO CONTROL 1 DATA 1 .>:,67B:,%@,.>:,67B:,%@,.>:,  <<< SORT THE STRING >>>*+-@'67B:,%@9r},. + +(SORT PASS 2...4-A6A7-A8@ 5-6-Au6-C:,-6-%B:,&$@69s}6-?:<<,<<< MOVE RECORDS >>>(SORT PASS 3..."-@"( OF 776-@:7$%&@,,$9t}AV%@:7$%&@,,6-@:7$%,,@/-@@+(@/  $9u}@@$@ (>:A%, ( UPDATING ((@3@,67@,.,,679v}@ ,.7@,((@2@(( UPDATING  @@3)@9w})@3*@8@,@<<< END OF PGM >>>$@@$@((E9x}ND OF PROGRAM...^F:A!,"@(^(>PUSH WHEN THE PROGRAM DISKETTE IS READY IN DRIVE 1...5F:A!9y},"@5F:B2y,@A1% D:FILEMENU@<<< TRAP HANDLER >>>ANN(UNEXPECTED ERROR F:A, AT 9z}LINE F:A,%F:A,$AVB9'(YOU SHOULD REBOOT THE SYSTEM...9A@4C(#<<< ERROR HANDLER >>>9{}2#6(>:AS,((-@A, 6 A D:FILESORTLSORTPADSLAUUURECSHLKEFULMAXKEY8IijZSeFILE1FILE2FILE3IOTITLEHLRECKEPADFLDFLDFLDRECDATETESTALTTPRCOLINEPASSEPASKKK =}}  0 x@@@ xx @ @A >@=~} Ex@a@u@@ 'FILEPRNT'=} 11-3-81d<<< MAIN LINE >>>n1 +AA1AR@oEF:A!,"@E((ԠŠ=}ŠΠŠp'@@d'B7t@dx-*(CURRENT FILE ASSIGNED: F:A",-(y/,($THIS PROG=}RAM PRINTS SELECTED RECORDS/(z(PUSH FOR MENU...{!!(PUSH TO CONTINUE... F:B2y,"@A =} F:B2y,@A0A@<<< OPEN CONTROL FILE >>><<;@,;@,;@,=};A ,;@0,-6. D1:CONTROL.$6.D1:DATA.-6.P:JF:A!,"@167@<@,.2J67@=}<@,.26-F:A",'67@,.=:,'67@ ,.=:,006.&THE FILE ASSIGNED IS NOT ON THIS DISK!?=}@ A5@@? A-)@)@-6-$AV%)@=}@)@4"*6.NO RECORDS TO PRINT!4 A8;A ,6. )67A ,. 867@=},.,<<< READ CONTROL FILE >>>6)@6-79<@,;$@,8-@9)@=}@: 6-%68<,-;&&67$@&@ <$@,.< @@ ;,<<< OPEN =}FILES >>>@006.&THE FILE ASSIGNED IS NOT ON THIS DISK!4 A*@@4 A=}(&&(PUSH FOR OUTPUT TO SCREEN...''(PUSH FOR OUTPUT TO PRINTER...33F:Ad,@*F:Ad,@b=}A#!F:Ad,"@!6.P:!F:Ad,"@b!6.S:AdAU4S:A6.C=}AN'T OPEN PRINTER!?@ A5@@? A''<<< RECORD SELECTION CRITERIA >>>8 =}4P:;@,(4(TODAY'S DATE IS...8;A ,.(>:A%,.(RECORD SELECTION CRITERIA 2(.("P=}RINT ALL OR SOME RECORDS (A/S)...2 ! 4A6-@! A 0SA! 6- ((FLD=}LABEL(Q-@4(7$@&@ <$@,QF:@, @ A6,(,(!PUSH TO CONTINUE DI=}SPLAY... F:B2y,@A3!(>:A%,FLDLABEL!(   (D A@6(#RECORD SELECTION BASED O=}N FIELD#...:D A @)!A@(&($(COMPARISON METHOD <,=,> ...('26-@:,&@Y2 =}@)!@AP(() (COMPARISON VALUE... X<<< FIELDS TO PRINT >>>b ;,c6-dJ*(>:=}A%,PRINT FORMAT DEFINITION-(G(FLDLABELLENGTHJ(m^-@A(7$@&@ <$@,8<=},^F:@, @ A&n,(,(!PUSH TO CONTINUE DISPLAY...o F:B2y,@A#pJ*(>:A%=},PRINT FORMAT DEFINITION-(G(FLDLABELLENGTHJ(r   (v7 A0)((0=CONTINUE) FIELD#...-7 A=}w"Ax: @)!0(>:AS, OUT OF RANGE!: A0yV$8<,%%@!A2L(>:AS=},WILL EXCEED 132 COLUMNS!V A067B:,%@,.>:,6-%8<,%@B:,"A A=}0<<< READ FILE >>>(>:A%, PRINTING.... 4P:.(@>:@',>:@ ,6-6-=}-@6.-@@68<@,-B:,%@68<@,-B:,%B:,=}67B:,%@,. 16-@"'6-1 A A  <<< RECAP >>>%=}4S:AP*(@+(@ ON FILE,(@ PRINTED-**(@P:'$B,'A %=}. A R(S( ON FILET( PRINTEDU!!(P:'$B,'A %V ( (PRESS WHEN DONEW =}F:B2y,@AUX F:B2y,"@AV<<< END >>>$@@$@((END=} OF PROGRAM...^F:A!,"@(^(>PUSH WHEN THE PROGRAM DISKETTE IS READY IN DRIVE 1...5F:A!,"=}@5F:B2y,@A 1% D:FILEMENU<<< TEST FOR CRITERIA >>>$$6.78<@,<8<@,,=}APA`Ap$ 26-@$$ 46-@%$. 36-@/$L<<< P=}RINT A LINE >>>Q"6-%@"4S:AV""4P:" A`"-@B:,"6-@:7<,,aff(=}@78<@,<8<@,,7@<8<,&8<@,%8<@,%@,b c(@d6-%=}@j&@X$t5-@@"(@& 26-5$<<< TOP OF FORM >>>??(@>:@'=},>:@,7@<@&B:,,(@@@ @ SORTED BY 7$@&@ <$@,=}(@22(@>:@',>:@, * (@ ALL RECORDS* A 22(@7$@=}&@ <$@, !!(@>:%@Y, (@"-@B:,"6-@:7<,,@6-$@=}&@ '6-$@@6-8<,&@A8<, @56-%8<,&@A6-@##(@=}7<,7@<, (@(@6-@$<<< SCREEN >>>"-@B:,"6-@:7<,,=}]](78<@,<8<@,,7@<8<,&8<@,%8<@,%@, ($@<<< TRAP=} HANDLER >>>ANN(UNEXPECTED ERROR F:A, AT LINE F:A,%F:A,$AVB9'(YOU SHOULD REBOOT THE SYSTE=}M...9A@4C(#<<< ERROR HANDLER >>>2#6(>:AS,((-@A, 6 A  D:FILEPR=}NTijZSeFILE1FILE2FILE3IOTITLEHLRECKEPADFLDFLDFLDRECDATETESTALTTPRCOLINEPASSEPASKKK <& F 'MAILMENU' WBB 11-23-81'F:A!,"'% D:FILEASGNdA}MAIN LINEn;@,x A A@7 +@-@7 @ǠA}%DISPLAY OPTIONS1 +@@1AR@'@@d'B7t@d##(@A}(@!!(@-FORMAT A LABEL(@-PRINT LABELS!!(@-RETURN A}TO MENU.0-@@0(@ 8$LACCEPT OPTIONV##@@K:`)@A}j$"@p!6. D1:MAILLBL0$$k$"@!6. D1:MAILLBL1$$l#"@ 6. D1:SYSMENU#$tAA}@R72@ @@K-@AO aA2~ A}A @<<< TRAP HANDLER >>>ANN(UNEXPECTED ERROR F:A, AT LINE F:A,%F:A,$AVB9'(YOU SHA}OULD REBOOT THE SYSTEM...9A@4C D:MAILMENUWBB 11-23-81'F:A!,"'% D:FILEASGNd@DFG0FILE1FILE2IOHLRECFLDFLDFLDLBLHGHMRGMAXWDTXFRMTKLE}@ E}'MAILLBL0' WBB 11-9-81 'MAILLBL0' WBB 11-9-81d<<< MAIN LINE >>>n1 +AA1AE}R@oEF:A!,"@E((ԠŠŠΠŠp'@@d'B7t@dx-E}*(CURRENT FILE ASSIGNED: F:A",-(y--(%THIS PROGRAM DEFINES THE PRINT FORMATz(OF THE MAILING LABELS((E}(( PUSH TO RETURN TO MENU...!!(PUSH TO CONTINUE... F:B2y,"@A  F:B2y,@E}A@<<< SET UP >>>&&;@ ,;@ ,;A ,#6. D1:CONTROL.#6.D1:TEMPJF:A!,"@E}167@<@,.2J67@<@,.26-F:A",67@,.=:,006.&THE FILE ASSIGNED IS NOT OE}N THIS DISK!?@ A5@@? A##6.UNABLE TO OPEN TEMP FILE!?@E} A5@@? A6.CAN'T FIND PRINTER!B@ A8@@E}P:B A,<<< READ CONTROL FILE >>>6)@*@7)@*@86-$AV%E}9)@*@:@(@;)@*@J)@*@T9E},;$@,^-@_&)@*@&68,-`@@(@@67$@&@ <$E}@,.a <<< PRINT TEMPLATE >>>:(>:A%,:(%THE TEMPLATE NOW PRINTING WILL ASSIST,,($YOU IN ANSWERINE}G THE QUESTIONS ABOUT..(&THE PHYSICAL DIMENSIONS OF THE LABELS.%%(@>:@',>:@ ,e-@@E}0(@P:'@,4 H-@0a(@P:'@,e (@>-@A0:(@E}&P:'@,$@> (@(@0-@@,(@LINE 0 (@YE}-@U(@FIELD  7$@&@ <$@, 8,Y ##<<< DEFINE PHYSICAL LABEL >>>NE}(>:A%,:(%DEFINE THE PHYSICAL DIMENSIONS OF THEN(MAILING LABELS.2((HOW MANY LABELS2(ACROSS THE PAGE... E} A  A = @)!@3(>:AS, 1-10 ONLY!= A 5((HOW MANY PHYSICAL5(LINES E}ON 1 LABEL... A0 A= @)!@%3(>:AS, 1-25 ONLY!= A0G(-("HOW MANY COLE}UMNS SHOULD BE SKIPPEDG(FOR A LEFT MARGIN... A@ A= )!@3(>:AS, 0-99 ONLYE}!= A@6-P:+A2&,',&7((HOW MANY PHYSICAL7(COLUMNS ON 1 LABEL...' AP A(: E}@)!0(>:AS,1- ONLY!: AP07*@*@**@7*@X<<< INSTRUCTIOE}NS >>>b7(>:A%,7(" LABEL PRINT FORMAT DEFINITIONc//('************ INSTRUCTIONS *************d(l))(!SELE}ECT TO SPECIFY THE DATA FROMm..(&A FIELD SHOULD BE PRINTED ON THE LINE.n%%(YOU'LL BE ASKED TO SUPPLY THEo( FIELE}D NUMBER.p(v,,($SELECT TO SPECIFY THAT TEXT SHOULDw**("BE PRINTED ON THE LINE. YOU'LL BEx!!(ASKED TO SUPPLY E}THE TEXT.y(--(%SELECT TO INDICATE NO MORE PRINTING,,($ON THE CURRENT LINE AND TO BEGIN THE( NEXT LINE.E}((PUSH TO BEGIN... F:B2y,@AQ<<< DEFINE FORMAT >>>&&;@,;A,;AE} ,-@ 6.6-g(>:A%,8(!LABEL FORMAT DEFINITION FOR LINE ;(?(B(g(-FIELD, E}-TEXT, -NEXT LINE... 4F A 4T A0LA0NEXT LINE 67B:,%@E},.>:AU,67B:,%@,. A @@ <<< UPDATE >>>* (>:A%, ( UPE}DATING +((@3@467@,.,567@ ,.7@,6((@2@E}<<< END >>>$@@$@((END OF PROGRAM...^F:A!,"@(^(>PE}USH WHEN THE PROGRAM DISKETTE IS READY IN DRIVE 1...5F:A!,"@5F:B2y,@A 1% D:ME}AILMENU<<< FIELD >>>(((WHAT FIELD SHOULD BE PRINTED...* A A'"*$: @)E}!0(>:AS,1- ONLY!: AE%8,!;(>:AS,WILL EXCEED LABEL WIDTH OF E AN6.7$@E}&@ , (<6-?:A:,67B:,%@,.6-%8,$L<<< TEXT >>>V''(E}WHAT TEXT SHOULD BE PRINTED...WAA(XYAZB:,"$[F%B:,!<(>:ASE},WOULD EXCEED LABEL WIDTH OF F A\6-@B:,267<,.>:@:7<,,&A(,6 `67B:,%@,.E}a67B:,%@,.b67B:,%@,.c6-%B:,d$<<< SEND TO FILE >>>-@ 46E}. 6-B:,"67<,.(@-@B:,H7<,4H67%@<%@,.>:@:7%@E}<%@,,%,  (@$@<<< TRAP HANDLER >>>ANN(UNEXPECTED ERROR F:A, AT LINE E}F:A,%F:A,$AVB9'(YOU SHOULD REBOOT THE SYSTEM...9A@4C(#<<< ERROR HANDLER >>>2#7(F}qrz#5FILE1FILE2FILE3IOHLRECFLDFLDFLDLBLHGHWDTMRGLFLDRECLABLABFMTFMTPPADTESTALTTPASJPAI} @ I}@@I} 'MAILLBL1' 11-3-81d<<< MAIN LINE >>>n1 +AA1AR@oEF:A!I},"@E((ԠŠŠΠŠp'@@d'B7t@dx-*(CURRENT FILE ASSIGNED:I} F:A",-(y**("THIS PROGRAM PRINTS MAILING LABELSz(FOR SELECTED RECORDS({(PUSH FOR MENU...|!!(I}PUSH TO CONTINUE... F:B2y,"@A  F:B2y,@A0<<< OPEN CONTROL FILE >>>I}11;@,;@,;@,;A ,-6. D1:CONTROL.$6.D1:DATA.-6.P:JF:A!,"@167@I}<@,.2J67@<@,.26-F:A",'67@,.=:,'67@ ,.=:,006.&THE FILE ASSIGNED I}IS NOT ON THIS DISK!?@ A5@@? A-)@)@-6-$AVI}%)@@)@,<<< READ CONTROL FILE >>>6)@6-79<@,I};$@,8-@9)@@: 6-%68<,-;&&67$@&@ <$@,.I}< @7)@)@*)@7)@A 6-$JLL;,;$,9<@,9<@,;A2I},;A2,;A ,K+ 6. 67A2,. +67@,.L!6-I:,&@d!;,T-@@I}U868<,-B:,%@868<@,-B:,%B:,V&67B:,%@,. &@<<< OPEN FILES >>>I}@@006.&THE FILE ASSIGNED IS NOT ON THIS DISK!4 A*@@4 AI}6.CAN'T OPEN PRINTER!4 A*@@4 A''<<< RECORD SELECTION CRITERIA >>>.(>I}:A%,.(RECORD SELECTION CRITERIA 2(.("PRINT ALL OR SOME RECORDS (A/S)...2 ! 4A6-@! A I}0SA! 6- (;-@4(7$@&@ <$@,8 ;(C A15("RECORD SELEI}CTION BASED ON FIELD...9C A @)!A1(($(COMPARISON METHOD <,=,> ...(26-@:,&I}@Y2 @)!@A@(& (COMPARISON VALUE... X<<< ALIGNMENT >>>]%% @>:@',>:I}@ ,b*(>:A%,*(PRINTING ALIGNMENT...l 6.XmC-@(68<,-@?68<@,-@I}C v A w2(2('PUSH TO PRINT ALIGNMENT AGAIN...x!!(PUSH TO CONTINUE...y F:B2y,"@I}A0z F:B2y,@A3<<< READ FILE >>>)(>:A%,)(SELECTING RECORDS... 6.-@I}6."-@@"( OF -@@68<@,-B:,%@68<@I},-B:,%B:,67B:,%@,. 16-@"'6-1 A A  **<<>>*"A 4"67B:,%@,. "6-B:,51 -68<,--68 A <<< END >>>$@@$@^F:A!,"@(^(>PUSH WHI}EN THE PROGRAM DISKETTE IS READY IN DRIVE 1...5F:A!,"@5F:B2y,@A 1% D:MAILMENUJ}<<< TEST FOR CRITERIA >>>$$6.78<@,<8<@,,APA`Ap$ 26-@J}$$ 46-@%$. 36-@/$L<<< PUT IN LAB$ >>>V@-@26.78<@,<8<@J},,@6-%@`868<,-B:,%@868<@,-B:,%B:,j67B:,%@,. t& " A 6J}-&6.~$<<< PRINT OUT >>>%-@%( PRINTING...-@ 6.6.7@J}<, 6-!!-8<,8<@,7<,4 A!7<,4 A"7<,4 A#J} (@ -@($4<<< FIELD >>>>!!6-@:7%@<%@,,?$$6.78J}<,<8<@,,@67B:,%@,.A6-&B:,B6-%@H$<<< TEXT >>>*'@:7%@<%J}@,,!A'*$6-%@67B:,%@,.7<,6-&@ A"<<< PAD >>> &&67B:J},%@,.7@<, 6- $@<<< TRAP HANDLER >>>ANN(UNEXPECTED ERROR F:A, AT LINE F:A,%J }F:A,$AVB9'(YOU SHOULD REBOOT THE SYSTEM...9A@4C(#<<< ERROR HANDLER >>>2#6(>:AS,J }((-@A, 6 A  D:MAILLBL1LBLHGHWDTMRGLFLDRECLABLABFMTFMTPPADTESTALTTPASJPAH8APX-20112DISK MAILING LISTWILLIAM BARTLETT03/08/8285NG PROCESS COMPLETEDD2:TITLE! INPUT MASTER DISK TO NL9͙kCop j`j {j`Hi͝Νh`L"OGSYS:D"NUR m if  +@-@""(@DISK MAILING LIST(@!!(@͠R}% D:SYSMENUD:BILL@""(@DISK MAILING LIST(@!!(@͠P!(>:AS,)-@A- 7 A  D:MAILLBL.OTXFRMTKLDEASGNGET #DRIVES%%(PUSH IF THE DATA DISK IS D1%%(PUSH IF THE DATA DISK IS D233F:Ad, @0)F:A}d,!@1A0*F:Ad,"@1*A!@*F:Ad,"@0*A!@$AdAU}.$@<<< TRAP HANDLER >>>ANN(UNEXPECTED ERROR F:A, AT LINE F:A,%F:A,$AVB9'(YOU SH}OULD REBOOT THE SYSTEM...9A@4C(#<<< ERROR HANDLER >>>2#7((>:AS,)-@A- 7 }A  D:SYSMOVE2IOFILE3XRECFLDHLFLENF:Ad,"@0*A!@$AdAU.$@<<< TRAP HANDLER >>>ANN(UNEXPECTED ERROR F:A}, AT LINE F:A,%F:A,$AVB9'(YOU SHOULD REBOOT THE SYSTEM...9A@4C(#<<< ERROR HA}NDLER >>>2#6(>:AS,((-@A, 6 A  D:FILEDEF QINE F:A,%F:A,$AVB9'(YOU SHOULD REBOOT THE SYSTEM...9A@4C(#<<< ERROR HANDLER >>>"}2#7((>:AS,)-@A- 7 A  D:FILEKILL I0*A!@$AdAU. A @<<< TRAP HANDLER >>>ANN(UNEXPECTED ERROR F:A, AT&} LINE F:A,%F:A,$AVB9'(YOU SHOULD REBOOT THE SYSTEM...9A@4C(#<<< ERROR HANDLER >>&}>2#7((>:AS,)-@A- 7 A  D:FILELISTEEOUT$K33F:Ad, @0)F:Ad,!@1A0*F:Ad,"@1*A!@*F:Ad,"@0*A!}@$AdAU.$@<<< TRAP HANDLER >>>ANN(UNEXPECTED ERROR F:A, AT LINE F:A,%F:}A,$AVB9'(YOU SHOULD REBOOT THE SYSTEM...9A@4C(#<<< ERROR HANDLER >>>2#6(>:AS,( }(-@A, 6 A  D:SYSEDIT 5F:A,%F:A,$AVB9'(YOU SHOULD REBOOT THE SYSTEM...9A@4C D:SYSMENU A o52L/A? &2 F9?L @`L:A6A6A%2LIA ~AF ?`LTA2M5LdA F9`LiA QA5 eA'eALA F9eALsA QA`LAAA#}LAA AA N?`LA fA822LAA ?AAͮAALBGAA 'AALB$}AAB ?AFͬALBAmAAi<6e=6eAAAI AILBLtBBq ?LBLBA AAL(BA%}iGAAiALA fA`LB2LBBLB5H)h)m5)J)`55 B`LBBB5L C]2ix@6^2iA6LC&}:2iH@6;2iA6(A6@6 *BBBBLC8(58BJm5BB8B~C~CBLCBmB@'}6eA6iHHBiBeBiI 8hhBLsC`LCx4my4iC`CL!DC{L!D (}x4ey4iCC`L+D'D8'D0G '<6e=6eGb2a2 +b2F6a2E655LDP)}ress any key to interrupt.D B`LD5LD6D6DDL>E36D26DD2L>E82( '*}:2e;2e8(2( ';2:2 +2 8 T5B2iC2iDDD +x^2]2 *55+}I55I5 ?`LEE5)5mE)5`LE5i)5`LEEE E5)5ELEE E`LEE5m,}E55 I@LE`m-=>L6H EL_HFI<LHH EL_H E5)5EL_H E BLjHL~H1}5 CF {5F`LHH FHHILHHILHH)H_ͅHLHHILHHI~LH8H HHLHH AH2}`LHe2H HHHI~L%IHL"I~ F98HHLI5ItLaIHL^IHHMIMIHLYI~ F9HLBIHLIH3}LIHILIH N?HHHe2HILHHe2 F9`LILIٯI ? HIIIYLIILINoI ?LILIY4}esI ?I`LI1LJ 5LJ* Press any key *J B HD6C6 B`L/JЭI`}5N^2iNN FNNNILONILOLWQILOw MLWQIL&O MLWQIL8OP MLWQILJO?}( MLWQI4LmO5LjO855 ?LWQILONiNi8x5NN +]2iw^2i *LWQI@}tL"P MNN5IPLPNi(Ni8P5NN +]2iP^2i( *LWQILUP5IwLMP8w5A}NN _M ?LWQIwLP MNN5IPLP8P5(NN _M(NN *LWQIvLPx^2]2 *B}5LWQ)?I,LP5)ix @(5LWQ)?I LDQ5L>Qb2a2w Mb2F6a2E65x^2]2 *C}5LAQ 5LWQ CNN ? MILdQ {5 3M`LkQ55Y2X2`L}Q55 hQ B3v B `LQE6F6E6F6ID}LQ``LQLQ5 5LQX2 Y2LQ hQLTS hQE6F6QQILR zQQLS5LSQIL[R QL9R zQE}QLXRE6F65Ȍ5Y2X2LSQILkR QLSQILRȌ5Y2PX2LSQILR QLR zQLRE6F6F} (D`LSQILR QLR zQLRE6F6QLSQI LSiV=V=V>VL%XȌ?V=V>VVV?VLV=Vm?V>Vi)N}@V_@VLV8@V @V=Vm?V>Vi@V?VLtV>ULW=Vi>ViAV=Vi>ViBV=Vi>ViCVAVIO}R AVICLGWBVI: CVI:LGW V=V>VLW0AVLWAV9LWBVI:LW>V=V U=Vi>ViDLWBVI:LP}WCVI:LW>V=V U=Vi>ViD=Vi>Vi:=V>V@V=Vm@V>ViIL%X@Vi=Ve>ViQ}=V>Vi`L0X H(&X+X8&XOXOX+XLX)X*X)X*X,X,XILX'X(XHH,X R} 8hh'X(X+XLDX`LX filename? X ? H22 *e2LY2e2u ]+2u DVu2LY2u2S}2u2 -XLYu2 F9`LYu2 22 *22 **2`LTY2u2LYv2PYPYIDLY2u ( (T}2LYLY ~~~Y ? ILY2u! 8)LY Y F92ILY2`LYYY2 U}B`LZ Y*2)2 22 *`L+Z`24_2~4 Z Y2M5LMZ F9LcZ䮠ZP ?`LoZLZV}Zr ?LZ ~~~Z ? IkZkZLZ (Z F9kZ`LZic:U;ULCc:ULdh}bILScLd Fb@U?U9ULmcLd Fbb9ULcLd58UbbLc Fbbc2mbd2ib8Umb8Ui}b F99ULcLcbLc59ULcLd F9 FbbbM8UL d:ULdLb:U`Ld H(dL>d *** Getting block |dj}dd$ ?LUdddP ?`LgdLxd  Receiving dj ? \`Ld B 2d 2`24_2~4 ddidk}dE ELdLd 7Adddddd;UdȌdd:UMdLEeȌd ̈́dLBeddd d bddIL9eLBeLU X>Uu2LtL(u2kuk +k  8)L(uLt2L6u GU I .nLyqICL[y2uk ]+~4M_2} 4M`2LuLuˠui ?Lu#(if ES, buffer will be cleared!)u ?Lu ~~~u ? IL}uLuu ? (Z8~4q4qqqqqqqqqL%vqLyL3v Originalv( ? Xu2LHvLyv2qqID}L^v VLy2uk ]+Lzv Destinationvn ? XqIDLv QYu2LvLyv2qkMw2kMqq !qqLv822 }q}Lv ~~~v ? ILwLy F9 (qqk (2L,wLxqI LFwqqq N*q}q4~4 1qq o2LswLxLwqLwqqqq '* (qLw }q IqIE qISLpx3U B4q}~4q~4mq4mqqŮq寐LAxqqqL xLxq F9qqL&xqLx ,JL6x 5LAxqqLwD6C6} B qqL]xLxLmx ,JLmx U X>Uu2L{Y b6L b63U Bz fAL{ 箮 { ? 7Az8u2={={}͍zL{zu2zz F9z0L{9͎zL{z2ZK 8)L{zIPL{x 5I ,JL{zzzL}2{ F9 7AzL{ yzL{Lz fA I .nz5z`L{{ Press [SELECT] to abort.% B{F{L{m{{i}{{ILxL{L{ {{ 8{]2m{^2i{{LJ{5 3M ,JL͈{L׈IL)?I} {ILL NL 3M{L {{E M{5{525L5Ȍ55 D 3MF2iЅG2ix *{LxLn}䡢\ ?LL Macro  stored. {{ ?d2xc2^2]2 + IL̉{IL̉LωL| T5Q2;2P2}:2z4{4;2:2:2X+22/224444 B 7````BBALIB2:28};28C2G22;2i?2?22>22>2i2?2i2>2i#2?2i2>2i(2?2i2>2i82?2}i2>2i=2?2i2>2iB2?2i2>2iJ2?2i224242i42i42B52A511LGOFFC} m1*(m1LkONȑhC2B2 *DE:2ȭ;2>2ȭ?2#B2ȭC266>2ȭ?}2 B2ȭC22636 6ȭ6]2ȭ^2 >2ȭ?2B2ȭC2Ʈ=6<6 *Ln<6m}=6miGiL455e2k2u ]+ (ou22?2>2P -X <` l _ BU2T2C2B2}8_262`272`24_2~4 T5E%DC2B2 +C2ԭB2ԭC21B20:2X4#"4%$)ҩ@}ԭ52 844L򮠳c ?L堠 ?L׍} ?L 嬠㮠 ?` #AT8HT,CC L|4}4K2J2|4}4K6ȑ}J6mQmQUFUAEUUDUhB-@@ '( INSTRUCTION+BB:,}**NOTE**HomeText, HomeFind, HomeTerm, and other HomePak auxiliary programs are Copyright (c) 1984 by Star Systems Software, Inc.